home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pibt3sp4.arc
/
SENDKER1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-10-03
|
2KB
|
45 lines
(*----------------------------------------------------------------------*)
(* Send_Kermit_File --- Upload file using Kermit *)
(*----------------------------------------------------------------------*)
OVERLAY PROCEDURE Send_Kermit_File;
(*----------------------------------------------------------------------*)
(* *)
(* Procedure: Send_Kermit_File *)
(* *)
(* Purpose: Uploads file to remote using Kermit protocol *)
(* *)
(* Calling Sequence: *)
(* *)
(* Send_Kermit_File; *)
(* *)
(*----------------------------------------------------------------------*)
CONST
EOF_Packet = 'Z';
Break_Packet = 'B';
VAR
Buffer_Pos : INTEGER;
Buffer_Size : INTEGER;
Write_Count : INTEGER;
Err : INTEGER;
Menu_Title : AnyStr;
Local_Save : Saved_Screen_Ptr;
Local_Save_2 : Saved_Screen_Ptr;
File_Pattern : AnyStr;
Stop_Send : BOOLEAN;
File_Entry : Directory_Record;
OK_File : BOOLEAN;
Try : INTEGER;
Send_Done : BOOLEAN;
Kermit_Menu : Menu_Type;
I : INTEGER;
J : INTEGER;
Kermit_Done : BOOLEAN;
Host_Count : INTEGER;
Menu_Choice : INTEGER;
Long_Buffer : BOOLEAN;
Buffer_Length : INTEGER;
Read_Buffer : File_Handle_Buffer_Ptr;